unit URemoveGridLines;

interface
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  System.Math,FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls, FMX.Grid,
  FMX.Layouts, FMX.Edit;
  procedure RemoveRows(strgrid : TStringGrid;StartRow,RemoveRows : integer);

implementation
procedure RemoveRows(strgrid : TStringGrid;StartRow,RemoveRows : integer);
var colindex,i,j: integer;
begin
   if (strgrid.RowCount < 1 ) or ((StartRow + RemoveRows) > (strgrid.RowCount)) then exit;
   j := StartRow;
   for i := StartRow + RemoveRows  to strgrid.RowCount -1  do
   begin
      for colindex := 1 to strgrid.ColumnCount -1 do
        strgrid.cells[colindex,j] :=  strgrid.cells[colindex,j + RemoveRows];
       Inc(j);

   end;
   strgrid.RowCount := strgrid.RowCount - RemoveRows;
end;

end.
